home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / gfx / misc / sfmv.lha / Install < prev    next >
Text File  |  1996-06-11  |  2KB  |  89 lines
  1. ;
  2. ; Installer Script for Shoah Full Motion Video.
  3. ;
  4. ; Version    :    1.0
  5. ; Date        :    10 June 96
  6. ; Coded by     :    Vex /SHOAH
  7. ;
  8.  
  9. ; ****************
  10. ; Initialise
  11. ; ****************
  12.  
  13. (set NOWB (cat "\n\'Shoah Full Motion Video\'\nWorkbench 3.0 or greater"
  14.         " is needed for this software to work properly. Your computer"
  15.         " does not appear to meet this requirement.\n"
  16.         " Are you sure you wish to continue?"
  17.         )
  18.     )
  19. (set NOWB-HELP (cat "The SFMV Convertor, Script Generator and Animation Utility"
  20.         " all need Workbench 3.0 or above to work. The SFMV Player"
  21.         " needs an AGA machine. The system does not appear to be running"
  22.         " Workbench 3.0, therefore these programs are unlikely to work"
  23.         )
  24.     )
  25. (set INSTWHERE (cat "Where do you wish to install the SFMV?\n"
  26.         "A new directory called \'SFMV\' will be created for you.") )
  27.  
  28. (set ABORTINSTALL (cat "Install aborted. Due to incorrect workbench version"))
  29.  
  30. ; ****************
  31. ; Let's go to work...
  32. ; ****************
  33.  
  34. ; Check if we've got the right Workbench version
  35.  
  36. (set OSVER ( / (getversion ) 65536 ) )
  37.  
  38. (if ( < OSVER 39)
  39.     (if (NOT (askbool (prompt NOWB) (help NOWB-HELP) (default 0) (choices "Proceed" "Cancel") ) )
  40.         (abort ABORTINSTALL)
  41.     )
  42. )
  43.  
  44. ; Which directory
  45. (set INSTDIR (askdir (prompt INSTWHERE) (help @askdir-help) (default @default-dest)))
  46.  
  47. ; Create it
  48. (makedir (set INSTDIR (tackon INSTDIR "SFMV") ) )
  49.  
  50. ; Install dem files...
  51. (copyfiles
  52.     (prompt "Which parts of the SFMV software do you wish to install?")
  53.     (help @copyfiles-help)
  54.     (source "SFMV:")
  55.     (dest INSTDIR)
  56.     (choices    "Convertor"
  57.             "Player"
  58.             "ScriptGenerator"
  59.             "AnimUtil"
  60.             "Guides"
  61.             "Examples"    )
  62.     (confirm)
  63.     (infos)
  64. )
  65.  
  66. ; Copy extra stuff
  67. (if (exists (tackon INSTDIR "Convertor") (noreq))
  68.     ; Add Default icon
  69.     (copyfiles
  70.         (prompt "Copying default SFMV icon")
  71.         (source "SFMV:Def_SFMV_Icon")
  72.         (dest INSTDIR)
  73.     )
  74. )
  75.  
  76. (if (exists (tackon INSTDIR "Player") (noreq))
  77.     ; Add WBPlayer icon and script
  78.     (copyfiles
  79.         (prompt "Copying WBPlayer")
  80.         (source "SFMV:")
  81.         (pattern "WBPlayer#?")
  82.         (dest INSTDIR)
  83.     )
  84. )
  85.  
  86. ; All done...
  87. (set @default-dest INSTDIR)
  88. (exit)
  89.